def setup
  size 200, 200
  background 0
  fill 255
             
  fontA = loadFont "CourierNew36.vlw"
  textFont fontA, 36
  textAlign CENTER
  
  margin = 6
  gap = 30
  translate margin * 1.5, margin * 2
       
  grid margin, margin do |x, y|    
    i = y * margin + x 
    if i <= 25      
      case letter = (65 + i).chr
      when 'A', 'E', 'I', 'O', 'U' 
        fill 204, 204, 0
      else
        fill 255
      end    
    else      
      letter = (22 + i).chr
      fill 153
    end
    text letter, 15 + x * gap, 20 + y * gap   
  end
end